Sky at Night 2006 September/SAN CD 9-2006 CD-ROM 16.iso/pc/Software/Network Telescope Control/NTC-Setup.Exe/Source/ntc_server_comms.dfm

Text File | 2005-07-30 | 4.5 KB | 217 lines

object scope_comms: Tscope_comms
  Left = 348
  Top = 178
  HelpType = htKeyword
  HelpKeyword = 'Communications'
  BorderStyle = bsDialog
  Caption = 'NTC Comms control'
  ClientHeight = 203
  ClientWidth = 256
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  HelpFile = 'ntc.hlp'
  OldCreateOrder = False
  OnCloseQuery = form_close_query
  OnCreate = formcreate
  OnPaint = check_activate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object comms_panel: TPanel
    Left = 0
    Top = 0
    Width = 256
    Height = 203
    Align = alClient
    TabOrder = 0
    object port_group: TGroupBox
      Left = 0
      Top = 4
      Width = 257
      Height = 200
      Caption = 'Port Configuration'
      TabOrder = 0
      object serial_label: TLabel
        Left = 16
        Top = 24
        Width = 48
        Height = 13
        Caption = 'Serial Port'
      end
      object speed_label: TLabel
        Left = 16
        Top = 49
        Width = 31
        Height = 13
        Caption = 'Speed'
      end
      object parity_label: TLabel
        Left = 16
        Top = 98
        Width = 26
        Height = 13
        Caption = 'Parity'
      end
      object bits_label: TLabel
        Left = 16
        Top = 73
        Width = 43
        Height = 13
        Caption = 'Data Bits'
      end
      object stop_bits_label: TLabel
        Left = 16
        Top = 123
        Width = 42
        Height = 13
        Caption = 'Stop Bits'
      end
      object timeout_label: TLabel
        Left = 16
        Top = 147
        Width = 77
        Height = 13
        Caption = 'Timeout [msecs]'
      end
      object interval_label: TLabel
        Left = 16
        Top = 172
        Width = 79
        Height = 13
        Caption = 'Interval Timeout '
      end
      object speed_edit: TComboBox
        Left = 120
        Top = 45
        Width = 113
        Height = 21
        ItemHeight = 13
        TabOrder = 0
        Items.Strings = (
          '110'
          '300'
          '1200'
          '2400'
          '4800'
          '9600'
          '14400'
          '19200'
          '38400'
          '57600'
          '115200')
      end
      object port_edit: TComboBox
        Left = 120
        Top = 20
        Width = 113
        Height = 21
        ItemHeight = 13
        TabOrder = 1
        Items.Strings = (
          'COM1'
          'COM2'
          'COM3'
          'COM4'
          'COM5'
          'COM6'
          'COM7'
          'COM8')
      end
      object parity_edit: TComboBox
        Left = 120
        Top = 94
        Width = 113
        Height = 21
        ItemHeight = 13
        TabOrder = 2
        Items.Strings = (
          'N'
          'E'
          'O')
      end
      object data_bits_edit: TComboBox
        Left = 120
        Top = 69
        Width = 113
        Height = 21
        ItemHeight = 13
        TabOrder = 3
        Items.Strings = (
          '4'
          '5'
          '6'
          '7'
          '8')
      end
      object stop_bits_edit: TComboBox
        Left = 120
        Top = 119
        Width = 113
        Height = 21
        ItemHeight = 13
        TabOrder = 4
        Items.Strings = (
          '1'
          '2')
      end
      object timeout_edit: TComboBox
        Left = 120
        Top = 143
        Width = 113
        Height = 21
        ItemHeight = 13
        TabOrder = 5
        OnChange = timeout_editChange
        Items.Strings = (
          '10'
          '50'
          '100'
          '200'
          '250'
          '300'
          '400'
          '500'
          '750'
          '1000'
          '2500'
          '5000'
          '10000')
      end
      object interval_edit: TComboBox
        Left = 120
        Top = 168
        Width = 113
        Height = 21
        ItemHeight = 13
        TabOrder = 6
        OnChange = interval_editChange
        Items.Strings = (
          '2'
          '5'
          '8'
          '10'
          '20'
          '30'
          '40'
          '50'
          '75'
          '100'
          '150'
          '200'
          '250'
          '500')
      end
    end
  end
  object response_timer: TTimer
    Enabled = False
    OnTimer = response_timerTimer
    Left = 80
    Top = 88
  end
end